/ BBS in a Box 10 / BBS In A Box Volume X (AMUG) (January 1994).bin / Files / Tele / I-L / LineShare Demo 1.3.cpt / LineShare Demo 1.3 Folder / LineShare Scripts / Supra Fax2&MultiData

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 14 53 75 70 72 61 20 | 46 61 78 32 26 4d 75 6c |..Supra |Fax2&Mul|
|00000010| 74 69 44 61 74 61 00 00 | 00 00 00 00 00 00 00 00 |tiData..|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 73 4c 69 | 4e 00 00 00 00 00 00 00 |.TEXTsLi|N.......|
|00000050| 00 00 00 00 00 18 96 00 | 00 01 5e a7 8e 56 6b a7 |........|..^..Vk.|
|00000060| 8e 56 6b 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.Vk.....|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 46 24 00 00 |........|....F$..|
|00000080| 21 0d 21 20 4c 69 6e 65 | 53 68 61 72 65 aa 20 53 |!.! Line|Share. S|
|00000090| 63 72 69 70 74 20 66 6f | 72 20 53 75 70 72 61 46 |cript fo|r SupraF|
|000000a0| 61 78 20 76 33 32 62 69 | 73 20 6d 6f 64 65 6d 73 |ax v32bi|s modems|
|000000b0| 0d 21 20 54 68 69 73 20 | 73 63 72 69 70 74 20 69 |.! This |script i|
|000000c0| 73 20 64 65 73 69 67 6e | 65 64 20 66 6f 72 20 43 |s design|ed for C|
|000000d0| 6c 61 73 73 20 32 20 66 | 61 78 20 73 6f 66 74 77 |lass 2 f|ax softw|
|000000e0| 61 72 65 20 61 6e 64 20 | 2d 0d 21 20 a5 a5 a5 20 |are and |-.! ... |
|000000f0| 4d 61 6b 65 20 73 75 72 | 65 20 74 68 61 74 20 79 |Make sur|e that y|
|00000100| 6f 75 20 68 61 76 65 20 | 22 48 22 20 6f 72 20 62 |ou have |"H" or b|
|00000110| 65 74 74 65 72 20 52 4f | 4d 73 20 69 6e 20 79 6f |etter RO|Ms in yo|
|00000120| 75 72 20 6d 6f 64 65 6d | 21 0d 21 0d 21 20 54 68 |ur modem|!.!.! Th|
|00000130| 69 73 20 73 63 72 69 70 | 74 20 69 73 20 64 65 73 |is scrip|t is des|
|00000140| 69 67 6e 65 64 20 74 6f | 20 75 73 65 20 77 69 74 |igned to| use wit|
|00000150| 68 20 66 61 78 20 61 6e | 64 20 73 65 76 65 72 61 |h fax an|d severa|
|00000160| 6c 20 64 61 74 61 20 73 | 65 72 76 69 63 65 73 3a |l data s|ervices:|
|00000170| 0d 21 20 54 65 6c 65 46 | 69 6e 64 65 72 aa 20 42 |.! TeleF|inder. B|
|00000180| 42 53 20 28 22 54 46 22 | 20 73 75 62 50 6f 72 74 |BS ("TF"| subPort|
|00000190| 29 0d 21 20 51 75 69 63 | 6b 4d 61 69 6c aa 20 4d |).! Quic|kMail. M|
|000001a0| 61 69 6c 53 65 72 76 65 | 72 20 28 22 4d 61 69 6c |ailServe|r ("Mail|
|000001b0| 22 20 73 75 62 50 6f 72 | 74 29 0d 21 20 54 68 65 |" subPor|t).! The|
|000001c0| 20 73 63 72 69 70 74 20 | 64 69 73 70 6c 61 79 73 | script |displays|
|000001d0| 20 74 68 65 20 6d 65 6e | 75 3a 20 74 68 69 73 20 | the men|u: this |
|000001e0| 6c 69 6e 65 73 20 61 72 | 65 20 6d 61 72 6b 65 64 |lines ar|e marked|
|000001f0| 20 77 69 74 68 20 22 40 | 40 40 22 0d 21 20 54 68 | with "@|@@".! Th|
|00000200| 65 20 63 68 6f 69 63 65 | 20 69 73 20 64 6f 6e 65 |e choice| is done|
|00000210| 20 6d 61 6e 75 61 6c 6c | 79 20 62 79 20 74 68 65 | manuall|y by the|
|00000220| 20 75 73 65 72 20 77 68 | 65 6e 20 63 6f 6e 6e 65 | user wh|en conne|
|00000230| 63 74 69 6e 67 20 74 6f | 20 74 68 65 20 68 6f 73 |cting to| the hos|
|00000240| 74 2e 0d 21 0d 21 20 46 | 6f 72 20 73 6f 6d 65 20 |t..!.! F|or some |
|00000250| 72 65 61 73 6f 6e 73 20 | 54 65 6c 65 46 69 6e 64 |reasons |TeleFind|
|00000260| 65 72 20 72 65 64 65 66 | 69 6e 65 73 20 74 68 65 |er redef|ines the|
|00000270| 20 4c 69 6e 65 46 65 65 | 64 20 63 68 61 72 61 63 | LineFee|d charac|
|00000280| 74 65 72 20 28 53 34 29 | 0d 21 20 57 65 20 64 6f |ter (S4)|.! We do|
|00000290| 6e 27 74 20 72 65 64 65 | 66 69 6e 65 20 69 74 20 |n't rede|fine it |
|000002a0| 72 65 61 6c 6c 79 2c 20 | 62 75 74 20 77 65 20 65 |really, |but we e|
|000002b0| 6d 75 6c 61 74 65 20 6d | 6f 64 65 6d 20 72 65 73 |mulate m|odem res|
|000002c0| 70 6f 6e 73 65 73 20 77 | 69 74 68 20 74 68 61 74 |ponses w|ith that|
|000002d0| 20 73 79 6d 62 6f 6c 0d | 21 20 54 68 69 73 20 74 | symbol.|! This t|
|000002e0| 72 69 63 6b 20 69 73 20 | 64 6f 6e 65 20 69 6e 20 |rick is |done in |
|000002f0| 6c 69 6e 65 73 20 6d 61 | 72 6b 65 64 20 77 69 74 |lines ma|rked wit|
|00000300| 68 20 27 24 24 24 24 27 | 0d 21 0d 21 20 49 66 20 |h '$$$$'|.!.! If |
|00000310| 79 6f 75 20 77 61 6e 74 | 20 74 6f 20 6d 6f 64 69 |you want| to modi|
|00000320| 66 79 20 74 68 69 73 20 | 73 63 72 69 70 74 20 66 |fy this |script f|
|00000330| 6f 72 20 79 6f 75 72 20 | 6d 6f 64 65 6d 2c 20 70 |or your |modem, p|
|00000340| 61 79 20 61 74 74 65 6e | 74 69 6f 6e 20 74 6f 0d |ay atten|tion to.|
|00000350| 21 20 74 68 65 20 6c 69 | 6e 65 20 6d 61 72 6b 65 |! the li|ne marke|
|00000360| 64 20 22 23 23 23 23 20 | 53 65 74 74 69 6e 67 73 |d "#### |Settings|
|00000370| 20 23 23 23 23 22 20 2d | 20 69 74 20 73 68 6f 75 | ####" -| it shou|
|00000380| 6c 64 20 62 65 20 6d 6f | 64 69 66 69 65 64 20 66 |ld be mo|dified f|
|00000390| 69 72 73 74 0d 21 0d 21 | 20 54 68 65 20 54 65 6c |irst.!.!| The Tel|
|000003a0| 65 46 69 6e 64 65 72 20 | 22 48 6f 73 74 20 4f 70 |eFinder |"Host Op|
|000003b0| 74 69 6f 6e 73 22 20 75 | 73 65 64 3a 0d 21 20 22 |tions" u|sed:.! "|
|000003c0| 41 64 6a 75 73 74 20 42 | 50 53 20 74 6f 20 6c 69 |Adjust B|PS to li|
|000003d0| 6e 65 20 73 70 65 65 64 | 22 20 2d 20 2a 64 69 73 |ne speed|" - *dis|
|000003e0| 61 62 6c 65 64 2a 20 28 | 73 69 6e 63 65 20 77 65 |abled* (|since we|
|000003f0| 20 61 6c 73 77 61 79 73 | 20 72 65 74 75 72 6e 20 | alsways| return |
|00000400| 22 43 4f 4e 4e 45 43 54 | 20 31 39 32 30 30 22 29 |"CONNECT| 19200")|
|00000410| 0d 21 20 22 55 73 65 20 | 42 72 65 61 6b 20 52 65 |.! "Use |Break Re|
|00000420| 73 65 74 22 20 2d 20 2a | 65 6e 61 62 6c 65 64 2a |set" - *|enabled*|
|00000430| 2c 0d 21 0d 21 20 54 68 | 65 20 51 75 69 63 6b 4d |,.!.! Th|e QuickM|
|00000440| 61 69 6c 20 6f 70 74 69 | 6f 6e 73 20 28 74 68 72 |ail opti|ons (thr|
|00000450| 6f 75 67 68 20 43 54 42 | 20 6d 6f 64 75 6c 65 3a |ough CTB| module:|
|00000460| 29 0d 21 20 44 6f 6e 27 | 74 20 61 64 6a 75 73 74 |).! Don'|t adjust|
|00000470| 20 73 70 65 65 64 20 28 | 73 69 6e 63 65 20 77 65 | speed (|since we|
|00000480| 20 61 6c 73 77 61 79 73 | 20 72 65 74 75 72 6e 20 | alsways| return |
|00000490| 22 43 4f 4e 4e 45 43 54 | 20 31 39 32 30 30 22 29 |"CONNECT| 19200")|
|000004a0| 0d 21 0d 21 0d 0d 21 20 | 2d 2d 2d 2d 2d 2d 2d 2d |.!.!..! |--------|
|000004b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000004c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000004d0| 2d 2d 0d 21 20 52 65 73 | 65 74 74 69 6e 67 20 74 |--.! Res|etting t|
|000004e0| 68 65 20 6d 6f 64 65 6d | 3a 0d 21 20 2d 2d 2d 2d |he modem|:.! ----|
|000004f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000500| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000510| 2d 2d 2d 2d 2d 2d 0d 40 | 48 61 6e 67 75 70 0d 20 |------.@|Hangup. |
|00000520| 20 53 65 74 54 72 69 65 | 73 20 32 0d 20 20 46 6c | SetTrie|s 2.  Fl|
|00000530| 75 73 68 0d 20 20 48 73 | 52 65 73 65 74 20 30 2c |ush.  Hs|Reset 0,|
|00000540| 30 2c 31 37 2c 31 39 2c | 30 2c 30 0d 21 0d 21 20 |0,17,19,|0,0.!.! |
|00000550| 54 72 79 20 74 6f 20 63 | 61 74 63 68 20 74 68 65 |Try to c|atch the|
|00000560| 20 22 4f 4b 22 20 61 6e | 73 77 65 72 2c 20 75 73 | "OK" an|swer, us|
|00000570| 65 20 74 68 65 20 45 73 | 63 61 70 65 20 73 65 71 |e the Es|cape seq|
|00000580| 20 61 6e 64 20 44 54 52 | 20 74 72 61 6e 73 69 74 | and DTR| transit|
|00000590| 69 6f 6e 73 0d 21 20 74 | 6f 20 65 6e 74 65 72 20 |ions.! t|o enter |
|000005a0| 74 68 65 20 63 6f 6d 6d | 61 6e 64 20 6d 6f 64 65 |the comm|and mode|
|000005b0| 0d 21 0d 40 4c 61 62 65 | 6c 20 31 0d 20 20 6d 61 |.!.@Labe|l 1.  ma|
|000005c0| 74 63 68 63 6c 72 0d 20 | 20 6d 61 74 63 68 73 74 |tchclr. | matchst|
|000005d0| 72 20 31 20 32 20 22 4f | 4b 5c 72 5c 6e 22 0d 20 |r 1 2 "O|K\r\n". |
|000005e0| 20 77 72 69 74 65 20 22 | 41 54 48 30 26 46 31 5c | write "|ATH0&F1\|
|000005f0| 72 22 0d 20 20 6d 61 74 | 63 68 72 65 61 64 20 32 |r".  mat|chread 2|
|00000600| 30 0d 20 20 57 72 69 74 | 65 20 22 2b 2b 2b 22 0d |0.  Writ|e "+++".|
|00000610| 20 20 44 74 72 43 6c 65 | 61 72 0d 20 20 70 61 75 |  DtrCle|ar.  pau|
|00000620| 73 65 20 31 30 0d 20 20 | 44 74 72 53 65 74 0d 21 |se 10.  |DtrSet.!|
|00000630| 0d 20 20 44 65 63 54 72 | 69 65 73 0d 20 20 49 66 |.  DecTr|ies.  If|
|00000640| 54 72 69 65 73 20 30 20 | 31 0d 21 0d 21 20 4f 53 |Tries 0 |1.!.! OS|
|00000650| 45 72 72 20 2d 36 30 31 | 39 20 22 4d 6f 64 65 6d |Err -601|9 "Modem|
|00000660| 20 65 72 72 6f 72 20 2d | 20 74 68 65 20 6d 6f 64 | error -| the mod|
|00000670| 65 6d 20 69 73 20 6e 6f | 74 20 72 65 73 70 6f 6e |em is no|t respon|
|00000680| 64 69 6e 67 22 0d 21 0d | 20 20 65 78 69 74 20 2d |ding".!.|  exit -|
|00000690| 36 30 31 39 0d 40 4c 61 | 62 65 6c 20 32 0d 20 20 |6019.@La|bel 2.  |
|000006a0| 77 72 69 74 65 20 22 41 | 54 2b 46 43 4c 41 53 53 |write "A|T+FCLASS|
|000006b0| 3d 30 5c 72 22 0d 20 20 | 4a 73 72 20 31 30 30 0d |=0\r".  |Jsr 100.|
|000006c0| 20 20 77 72 69 74 65 20 | 22 41 54 2b 46 41 41 3d |  write |"AT+FAA=|
|000006d0| 30 5c 72 22 0d 20 20 4a | 73 72 20 31 30 30 0d 20 |0\r".  J|sr 100. |
|000006e0| 20 65 78 69 74 20 30 0d | 21 20 2d 2d 2d 2d 2d 2d | exit 0.|! ------|
|000006f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000700| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000710| 2d 2d 2d 2d 0d 21 20 20 | 20 20 52 65 63 65 69 76 |----.!  |  Receiv|
|00000720| 69 6e 67 20 69 6e 63 6f | 6d 69 6e 67 20 63 61 6c |ing inco|ming cal|
|00000730| 6c 73 0d 21 20 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |ls.! ---|--------|
|00000740| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000750| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 0d |--------|-------.|
|00000760| 40 41 4e 53 57 45 52 0d | 40 4c 61 62 65 6c 20 31 |@ANSWER.|@Label 1|
|00000770| 30 0d 21 0d 21 20 53 65 | 74 20 74 68 65 20 6d 6f |0.!.! Se|t the mo|
|00000780| 64 65 6d 20 70 72 65 66 | 65 72 72 65 64 20 73 70 |dem pref|erred sp|
|00000790| 65 65 64 20 66 69 72 73 | 74 0d 21 0d 20 20 53 45 |eed firs|t.!.  SE|
|000007a0| 52 52 45 53 45 54 20 32 | 34 30 30 2c 30 2c 38 2c |RRESET 2|400,0,8,|
|000007b0| 31 0d 20 20 4a 73 72 20 | 38 30 0d 21 0d 21 20 53 |1.  Jsr |80.!.! S|
|000007c0| 65 74 20 74 68 65 20 63 | 6f 6d 6d 6f 6e 20 6f 70 |et the c|ommon op|
|000007d0| 74 69 6f 6e 73 0d 20 20 | 4a 73 72 20 37 30 0d 21 |tions.  |Jsr 70.!|
|000007e0| 0d 21 20 53 65 74 20 74 | 68 65 20 63 6f 6d 6d 75 |.! Set t|he commu|
|000007f0| 6e 69 63 61 74 69 6f 6e | 20 6f 70 74 69 6f 6e 73 |nication| options|
|00000800| 3a 0d 21 20 58 34 20 2d | 20 45 78 74 65 6e 64 65 |:.! X4 -| Extende|
|00000810| 64 20 72 65 73 70 6f 6e | 73 65 20 73 65 74 0d 21 |d respon|se set.!|
|00000820| 20 4e 31 20 2d 20 43 6f | 6e 6e 65 63 74 20 61 74 | N1 - Co|nnect at|
|00000830| 20 74 68 65 20 68 69 67 | 68 65 73 74 20 72 61 74 | the hig|hest rat|
|00000840| 65 0d 21 20 5c 4e 33 20 | 2d 20 45 6e 61 62 6c 65 |e.! \N3 |- Enable|
|00000850| 20 4d 4e 50 2f 76 34 32 | 20 66 6f 72 20 54 65 6c | MNP/v42| for Tel|
|00000860| 65 46 69 6e 64 65 72 20 | 61 6e 64 20 6d 61 69 6c |eFinder |and mail|
|00000870| 0d 21 20 26 4b 34 20 2d | 20 58 6f 6e 2f 58 6f 66 |.! &K4 -| Xon/Xof|
|00000880| 66 20 66 6c 6f 77 20 63 | 6f 6e 74 72 6f 6c 20 28 |f flow c|ontrol (|
|00000890| 66 6f 72 20 46 61 78 29 | 0d 21 20 46 61 78 20 6d |for Fax)|.! Fax m|
|000008a0| 6f 64 65 20 28 74 6f 20 | 65 6e 61 62 6c 65 20 66 |ode (to |enable f|
|000008b0| 61 78 20 74 75 6e 69 6e | 67 20 63 6f 6d 6d 61 6e |ax tunin|g comman|
|000008c0| 64 73 29 0d 21 0d 40 4c | 61 62 65 6c 20 31 31 0d |ds).!.@L|abel 11.|
|000008d0| 21 20 23 23 23 23 20 53 | 65 74 74 69 6e 67 73 20 |! #### S|ettings |
|000008e0| 23 23 23 23 0d 20 20 57 | 72 69 74 65 20 22 41 54 |####.  W|rite "AT|
|000008f0| 58 34 4e 31 5c 5c 4e 33 | 26 4b 34 2b 46 43 4c 41 |X4N1\\N3|&K4+FCLA|
|00000900| 53 53 3d 32 5c 72 22 0d | 20 20 4a 73 72 20 31 30 |SS=2\r".|  Jsr 10|
|00000910| 30 0d 21 0d 21 20 53 65 | 74 20 74 68 65 20 22 77 |0.!.! Se|t the "w|
|00000920| 6f 72 6b 22 20 73 70 65 | 65 64 0d 21 0d 40 4c 61 |ork" spe|ed.!.@La|
|00000930| 62 65 6c 20 31 32 0d 20 | 20 53 45 52 52 45 53 45 |bel 12. | SERRESE|
|00000940| 54 20 31 39 32 30 30 2c | 30 2c 38 2c 31 0d 20 20 |T 19200,|0,8,1.  |
|00000950| 4a 73 72 20 38 30 0d 21 | 0d 21 20 53 65 74 20 46 |Jsr 80.!|.! Set F|
|00000960| 61 78 20 70 61 72 61 6d | 65 74 65 72 73 3a 20 4c |ax param|eters: L|
|00000970| 49 44 2c 20 44 43 43 2c | 42 4f 52 0d 21 0d 20 20 |ID, DCC,|BOR.!.  |
|00000980| 57 72 69 74 65 20 22 41 | 54 2b 46 4c 49 44 3d 5c |Write "A|T+FLID=\|
|00000990| 22 53 74 61 6c 6b 65 72 | 5f 47 6d 62 48 5c 22 5c |"Stalker|_GmbH\"\|
|000009a0| 72 22 0d 20 20 4a 73 72 | 20 31 30 30 0d 20 20 57 |r".  Jsr| 100.  W|
|000009b0| 72 69 74 65 20 22 41 54 | 2b 46 44 43 43 3d 31 2c |rite "AT|+FDCC=1,|
|000009c0| 33 2c 30 2c 32 2c 30 2c | 30 2c 30 2c 30 5c 72 22 |3,0,2,0,|0,0,0\r"|
|000009d0| 0d 20 20 4a 73 72 20 31 | 30 30 0d 20 20 57 72 69 |.  Jsr 1|00.  Wri|
|000009e0| 74 65 20 22 41 54 2b 46 | 42 4f 52 3d 31 5c 72 22 |te "AT+F|BOR=1\r"|
|000009f0| 0d 20 20 4a 73 72 20 31 | 30 30 0d 21 0d 21 20 41 |.  Jsr 1|00.!.! A|
|00000a00| 6c 6c 6f 77 20 6d 6f 64 | 65 6d 20 74 6f 20 72 65 |llow mod|em to re|
|00000a10| 63 65 69 76 65 20 66 61 | 78 20 6d 65 73 73 61 67 |ceive fa|x messag|
|00000a20| 65 73 0d 21 0d 20 20 57 | 72 69 74 65 20 22 41 54 |es.!.  W|rite "AT|
|00000a30| 2b 46 43 52 3d 31 5c 72 | 22 0d 20 20 4a 73 72 20 |+FCR=1\r|".  Jsr |
|00000a40| 31 30 30 0d 21 0d 21 20 | 54 65 6c 6c 20 74 68 65 |100.!.! |Tell the|
|00000a50| 20 6d 6f 64 65 6d 20 74 | 6f 20 64 65 74 65 72 6d | modem t|o determ|
|00000a60| 69 6e 65 20 74 68 65 20 | 74 79 70 65 20 6f 66 20 |ine the |type of |
|00000a70| 74 68 65 20 69 6e 63 6f | 6d 69 6e 67 20 63 61 6c |the inco|ming cal|
|00000a80| 6c 0d 21 20 46 65 74 63 | 68 20 74 68 65 20 74 75 |l.! Fetc|h the tu|
|00000a90| 62 65 20 61 66 74 65 72 | 20 4e 20 72 69 6e 67 73 |be after| N rings|
|00000aa0| 2c 20 77 68 65 72 65 20 | 4e 20 68 61 73 20 62 65 |, where |N has be|
|00000ab0| 65 6e 20 73 65 74 20 69 | 6e 20 74 68 65 20 63 6f |en set i|n the co|
|00000ac0| 6e 74 72 6f 6c 20 70 61 | 6e 65 6c 20 28 5e 34 29 |ntrol pa|nel (^4)|
|00000ad0| 0d 21 0d 20 20 57 72 69 | 74 65 20 22 41 54 53 30 |.!.  Wri|te "ATS0|
|00000ae0| 3d 5e 34 2b 46 41 41 3d | 31 5c 72 22 0d 20 20 4a |=^4+FAA=|1\r".  J|
|00000af0| 73 72 20 31 30 30 0d 21 | 0d 21 20 45 76 65 72 79 |sr 100.!|.! Every|
|00000b00| 74 68 69 6e 67 20 69 73 | 20 72 65 61 64 79 20 2d |thing is| ready -|
|00000b10| 20 6c 65 74 27 73 20 73 | 69 74 20 61 6e 64 20 77 | let's s|it and w|
|00000b20| 61 69 74 20 66 6f 72 20 | 61 20 63 61 6c 6c 0d 21 |ait for |a call.!|
|00000b30| 20 57 65 27 6c 6c 20 77 | 61 69 74 20 66 6f 72 20 | We'll w|ait for |
|00000b40| 32 20 6d 69 6e 75 74 65 | 73 2c 20 74 68 65 6e 20 |2 minute|s, then |
|00000b50| 72 65 69 6e 69 74 69 61 | 74 65 20 74 68 65 20 6d |reinitia|te the m|
|00000b60| 6f 64 65 6d 0d 40 4c 61 | 62 65 6c 20 32 30 0d 20 |odem.@La|bel 20. |
|00000b70| 20 4d 61 74 63 68 43 6c | 72 0d 20 20 6d 61 74 63 | MatchCl|r.  matc|
|00000b80| 68 73 74 72 20 31 20 32 | 30 20 22 52 49 4e 47 5c |hstr 1 2|0 "RING\|
|00000b90| 72 22 0d 20 20 6d 61 74 | 63 68 73 74 72 20 32 20 |r".  mat|chstr 2 |
|00000ba0| 32 31 20 22 43 4f 4e 4e | 45 43 54 22 0d 20 20 6d |21 "CONN|ECT".  m|
|00000bb0| 61 74 63 68 73 74 72 20 | 31 33 20 33 30 20 22 2b |atchstr |13 30 "+|
|00000bc0| 46 43 4f 4e 22 0d 20 20 | 6d 61 74 63 68 73 74 72 |FCON".  |matchstr|
|00000bd0| 20 31 34 20 31 30 20 22 | 5c 72 5c 6e 4e 4f 20 20 | 14 10 "|\r\nNO  |
|00000be0| 22 0d 20 20 6d 61 74 63 | 68 73 74 72 20 31 35 20 |".  matc|hstr 15 |
|00000bf0| 31 30 20 22 42 55 53 59 | 22 0d 20 20 4d 61 74 63 |10 "BUSY|".  Matc|
|00000c00| 68 72 65 61 64 20 31 32 | 30 30 0d 20 20 6a 75 6d |hread 12|00.  jum|
|00000c10| 70 20 31 30 0d 21 0d 21 | 20 44 61 74 61 20 63 6f |p 10.!.!| Data co|
|00000c20| 6e 6e 65 63 74 69 6f 6e | 20 68 61 73 20 62 65 65 |nnection| has bee|
|00000c30| 6e 20 65 73 74 61 62 6c | 69 73 68 65 64 20 28 77 |n establ|ished (w|
|00000c40| 65 20 72 65 61 64 20 22 | 43 4f 4e 4e 45 43 54 22 |e read "|CONNECT"|
|00000c50| 29 0d 21 20 52 65 6d 6f | 76 65 20 65 76 65 72 79 |).! Remo|ve every|
|00000c60| 74 68 69 6e 67 20 74 69 | 6c 6c 20 22 5c 72 5c 6e |thing ti|ll "\r\n|
|00000c70| 22 20 66 72 6f 6d 20 74 | 68 65 20 62 75 66 66 65 |" from t|he buffe|
|00000c80| 72 0d 40 4c 61 62 65 6c | 20 32 31 0d 20 20 4d 61 |r.@Label| 21.  Ma|
|00000c90| 74 63 68 43 6c 72 0d 20 | 20 4d 61 74 63 68 53 74 |tchClr. | MatchSt|
|00000ca0| 72 20 31 20 32 32 20 22 | 5c 72 5c 6e 22 0d 20 20 |r 1 22 "|\r\n".  |
|00000cb0| 4d 61 74 63 68 52 65 61 | 64 20 31 30 0d 20 20 65 |MatchRea|d 10.  e|
|00000cc0| 78 69 74 20 2d 36 30 31 | 39 0d 40 4c 61 62 65 6c |xit -601|9.@Label|
|00000cd0| 20 32 32 0d 21 0d 21 20 | 44 69 73 70 6c 61 79 20 | 22.!.! |Display |
|00000ce0| 6f 75 72 20 6d 65 6e 75 | 0d 21 20 40 40 40 0d 20 |our menu|.! @@@. |
|00000cf0| 20 57 72 69 74 65 20 22 | 5c 72 5c 6e 5c 6e 5c 6e | Write "|\r\n\n\n|
|00000d00| 5c 6e 57 65 6c 63 6f 6d | 65 20 74 6f 20 53 74 61 |\nWelcom|e to Sta|
|00000d10| 6c 6b 65 72 20 4d 75 6c | 74 69 2d 53 65 72 76 69 |lker Mul|ti-Servi|
|00000d20| 63 65 20 48 6f 73 74 21 | 5c 72 5c 6e 22 0d 20 20 |ce Host!|\r\n".  |
|00000d30| 57 72 69 74 65 20 22 5c | 72 5c 6e 50 72 65 73 73 |Write "\|r\nPress|
|00000d40| 20 61 20 6b 65 79 20 74 | 6f 20 63 6f 6e 6e 65 63 | a key t|o connec|
|00000d50| 74 20 74 6f 3a 5c 72 5c | 6e 22 0d 20 20 57 72 69 |t to:\r\|n".  Wri|
|00000d60| 74 65 20 22 4d 20 2d 20 | 54 65 6c 65 46 69 6e 64 |te "M - |TeleFind|
|00000d70| 65 72 28 74 6d 29 20 42 | 42 53 5c 72 5c 6e 22 0d |er(tm) B|BS\r\n".|
|00000d80| 20 20 57 72 69 74 65 20 | 22 51 20 2d 20 51 75 69 |  Write |"Q - Qui|
|00000d90| 63 6b 4d 61 69 6c 28 74 | 6d 29 20 6d 61 69 6c 2d |ckMail(t|m) mail-|
|00000da0| 73 65 72 76 65 72 5c 72 | 5c 6e 22 0d 20 20 57 72 |server\r|\n".  Wr|
|00000db0| 69 74 65 20 22 3d 3e 22 | 0d 20 20 4d 61 74 63 68 |ite "=>"|.  Match|
|00000dc0| 43 6c 72 0d 20 20 4d 61 | 74 63 68 53 74 72 20 31 |Clr.  Ma|tchStr 1|
|00000dd0| 20 32 34 20 22 4d 22 0d | 20 20 4d 61 74 63 68 53 | 24 "M".|  MatchS|
|00000de0| 74 72 20 32 20 32 34 20 | 22 6d 22 0d 20 20 4d 61 |tr 2 24 |"m".  Ma|
|00000df0| 74 63 68 53 74 72 20 33 | 20 32 35 20 22 51 22 0d |tchStr 3| 25 "Q".|
|00000e00| 20 20 4d 61 74 63 68 53 | 74 72 20 34 20 32 35 20 |  MatchS|tr 4 25 |
|00000e10| 22 71 22 0d 20 20 4d 61 | 74 63 68 53 74 72 20 35 |"q".  Ma|tchStr 5|
|00000e20| 20 32 33 20 22 5c 72 22 | 0d 20 20 4d 61 74 63 68 | 23 "\r"|.  Match|
|00000e30| 52 65 61 64 20 31 35 30 | 0d 40 4c 61 62 65 6c 20 |Read 150|.@Label |
|00000e40| 32 33 0d 20 20 65 78 69 | 74 20 2d 36 30 31 39 0d |23.  exi|t -6019.|
|00000e50| 21 0d 21 20 45 6d 75 6c | 61 74 65 20 74 68 65 20 |!.! Emul|ate the |
|00000e60| 43 4f 4e 4e 45 43 54 20 | 31 39 32 30 30 20 6d 65 |CONNECT |19200 me|
|00000e70| 73 73 61 67 65 0d 21 20 | 41 74 74 61 63 68 20 74 |ssage.! |Attach t|
|00000e80| 68 65 20 22 54 46 22 20 | 73 75 62 50 6f 72 74 0d |he "TF" |subPort.|
|00000e90| 21 20 54 68 65 20 6c 65 | 74 74 65 72 20 22 4d 22 |! The le|tter "M"|
|00000ea0| 20 69 73 20 61 6c 73 6f | 20 70 75 74 20 69 6e 74 | is also| put int|
|00000eb0| 6f 20 74 68 65 20 62 75 | 66 66 65 72 2c 0d 21 20 |o the bu|ffer,.! |
|00000ec0| 73 69 6e 63 65 20 69 74 | 20 63 6f 75 6c 64 20 62 |since it| could b|
|00000ed0| 65 20 70 61 72 74 20 6f | 66 20 54 65 6c 65 46 69 |e part o|f TeleFi|
|00000ee0| 6e 64 65 72 20 22 4d 4d | 4d 22 20 27 65 6e 74 72 |nder "MM|M" 'entr|
|00000ef0| 79 20 6d 61 72 6b 27 0d | 21 0d 40 4c 61 62 65 6c |y mark'.|!.@Label|
|00000f00| 20 32 34 0d 20 20 57 72 | 69 74 65 20 22 4d 5c 72 | 24.  Wr|ite "M\r|
|00000f10| 5c 6e 5c 72 5c 6e 43 6f | 6e 6e 65 63 74 69 6e 67 |\n\r\nCo|nnecting|
|00000f20| 20 74 6f 20 54 65 6c 65 | 46 69 6e 64 65 72 2e 2e | to Tele|Finder..|
|00000f30| 2e 5c 72 5c 6e 22 0d 20 | 20 51 75 65 75 65 49 6e |.\r\n". | QueueIn|
|00000f40| 70 75 74 20 22 5c 72 5c | 32 37 43 4f 4e 4e 45 43 |put "\r\|27CONNEC|
|00000f50| 54 20 31 39 32 30 30 5c | 72 5c 32 37 4d 22 0d 20 |T 19200\|r\27M". |
|00000f60| 20 41 74 74 61 63 68 20 | 22 54 46 22 20 28 44 54 | Attach |"TF" (DT|
|00000f70| 52 2c 42 52 45 41 4b 2c | 52 45 53 45 54 2c 45 53 |R,BREAK,|RESET,ES|
|00000f80| 43 41 50 45 2c 49 44 4c | 45 4c 49 4d 49 54 3d 36 |CAPE,IDL|ELIMIT=6|
|00000f90| 30 29 0d 21 0d 21 20 45 | 6d 75 6c 61 74 65 20 74 |0).!.! E|mulate t|
|00000fa0| 68 65 20 43 4f 4e 4e 45 | 43 54 20 31 39 32 30 30 |he CONNE|CT 19200|
|00000fb0| 20 6d 65 73 73 61 67 65 | 0d 21 20 41 74 74 61 63 | message|.! Attac|
|00000fc0| 68 20 74 68 65 20 22 4d | 61 69 6c 22 20 73 75 62 |h the "M|ail" sub|
|00000fd0| 50 6f 72 74 0d 21 20 54 | 68 65 20 73 79 6d 62 6f |Port.! T|he symbo|
|00000fe0| 6c 20 22 5c 72 22 20 69 | 73 20 61 6c 73 6f 20 70 |l "\r" i|s also p|
|00000ff0| 75 74 20 69 6e 74 6f 20 | 74 68 65 20 62 75 66 66 |ut into |the buff|
|00001000| 65 72 2c 0d 21 20 74 6f | 20 66 6f 72 63 65 20 51 |er,.! to| force Q|
|00001010| 75 69 63 6b 4d 61 69 6c | 20 74 6f 20 73 74 61 72 |uickMail| to star|
|00001020| 74 20 74 68 65 20 73 65 | 73 73 69 6f 6e 0d 21 0d |t the se|ssion.!.|
|00001030| 40 4c 61 62 65 6c 20 32 | 35 0d 20 20 57 72 69 74 |@Label 2|5.  Writ|
|00001040| 65 20 22 51 5c 72 5c 6e | 5c 72 5c 6e 43 6f 6e 6e |e "Q\r\n|\r\nConn|
|00001050| 65 63 74 69 6e 67 20 74 | 6f 20 51 75 69 63 6b 4d |ecting t|o QuickM|
|00001060| 61 69 6c 2e 2e 2e 5c 72 | 5c 6e 22 0d 20 20 51 75 |ail...\r|\n".  Qu|
|00001070| 65 75 65 49 6e 70 75 74 | 20 22 5c 72 5c 6e 43 4f |eueInput| "\r\nCO|
|00001080| 4e 4e 45 43 54 20 31 39 | 32 30 30 5c 72 5c 6e 5c |NNECT 19|200\r\n\|
|00001090| 72 22 0d 20 20 41 74 74 | 61 63 68 20 22 4d 61 69 |r".  Att|ach "Mai|
|000010a0| 6c 22 20 28 44 54 52 2c | 45 53 43 41 50 45 29 0d |l" (DTR,|ESCAPE).|
|000010b0| 21 0d 21 20 46 61 78 20 | 63 6f 6e 6e 65 63 74 69 |!.! Fax |connecti|
|000010c0| 6f 6e 20 68 61 73 20 62 | 65 65 6e 20 65 73 74 61 |on has b|een esta|
|000010d0| 62 6c 69 73 68 65 64 20 | 28 77 65 20 72 65 61 64 |blished |(we read|
|000010e0| 20 22 2b 46 43 4f 4e 22 | 29 0d 21 20 50 75 74 20 | "+FCON"|).! Put |
|000010f0| 74 68 65 20 2b 46 43 4f | 4e 20 62 61 63 6b 20 74 |the +FCO|N back t|
|00001100| 6f 20 74 68 65 20 62 75 | 66 66 65 72 2c 0d 21 20 |o the bu|ffer,.! |
|00001110| 50 75 74 20 74 68 65 20 | 22 52 49 4e 47 22 20 62 |Put the |"RING" b|
|00001120| 65 66 6f 72 65 20 74 68 | 65 20 22 2b 46 43 4f 4e |efore th|e "+FCON|
|00001130| 22 0d 21 20 41 74 74 61 | 63 68 20 74 68 65 20 22 |".! Atta|ch the "|
|00001140| 46 61 78 22 20 73 75 62 | 50 6f 72 74 0d 21 0d 40 |Fax" sub|Port.!.@|
|00001150| 4c 61 62 65 6c 20 33 30 | 0d 20 20 51 75 65 75 65 |Label 30|.  Queue|
|00001160| 49 6e 70 75 74 20 22 5c | 72 5c 6e 52 49 4e 47 5c |Input "\|r\nRING\|
|00001170| 72 5c 6e 5c 72 5c 6e 2b | 46 43 4f 4e 22 0d 20 20 |r\n\r\n+|FCON".  |
|00001180| 41 74 74 61 63 68 20 22 | 46 61 78 22 20 28 44 54 |Attach "|Fax" (DT|
|00001190| 52 2c 52 45 53 45 54 2c | 45 53 43 41 50 45 2c 49 |R,RESET,|ESCAPE,I|
|000011a0| 44 4c 45 4c 69 6d 69 74 | 3d 33 30 29 0d 21 20 2d |DLELimit|=30).! -|
|000011b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000011c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000011d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 0d 21 20 4f 72 69 67 |--------|-.! Orig|
|000011e0| 69 6e 61 74 69 6e 67 20 | 61 20 63 61 6c 6c 20 74 |inating |a call t|
|000011f0| 68 72 6f 75 67 68 20 74 | 68 65 20 22 46 61 78 22 |hrough t|he "Fax"|
|00001200| 20 73 75 62 50 6f 72 74 | 0d 21 20 2d 2d 2d 2d 2d | subPort|.! -----|
|00001210| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001220| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001230| 2d 2d 2d 2d 2d 0d 40 4f | 52 49 47 49 4e 41 54 45 |-----.@O|RIGINATE|
|00001240| 20 22 46 61 78 22 0d 21 | 0d 21 20 53 65 74 20 74 | "Fax".!|.! Set t|
|00001250| 68 65 20 22 46 61 78 22 | 20 73 70 65 65 64 0d 21 |he "Fax"| speed.!|
|00001260| 0d 20 20 53 45 52 52 45 | 53 45 54 20 31 39 32 30 |.  SERRE|SET 1920|
|00001270| 30 2c 30 2c 38 2c 31 0d | 20 20 4a 73 72 20 38 30 |0,0,8,1.|  Jsr 80|
|00001280| 0d 21 0d 21 20 53 65 74 | 20 74 68 65 20 63 6f 6d |.!.! Set| the com|
|00001290| 6d 6f 6e 20 6f 70 74 69 | 6f 6e 73 0d 21 0d 20 20 |mon opti|ons.!.  |
|000012a0| 4a 73 72 20 37 30 0d 21 | 0d 21 20 53 65 74 20 74 |Jsr 70.!|.! Set t|
|000012b0| 68 65 20 46 61 78 20 6d | 6f 64 65 0d 21 0d 20 20 |he Fax m|ode.!.  |
|000012c0| 57 72 69 74 65 20 22 41 | 54 2b 46 43 4c 41 53 53 |Write "A|T+FCLASS|
|000012d0| 3d 32 5c 72 22 0d 20 20 | 4a 73 72 20 31 30 30 0d |=2\r".  |Jsr 100.|
|000012e0| 21 0d 21 20 4e 6f 77 20 | 65 6d 69 74 20 61 6c 6c |!.! Now |emit all|
|000012f0| 20 63 6f 6d 6d 61 6e 64 | 73 20 74 68 61 74 20 74 | command|s that t|
|00001300| 68 65 20 61 70 70 6c 69 | 63 61 74 69 6f 6e 20 68 |he appli|cation h|
|00001310| 61 73 20 73 65 6e 74 20 | 74 6f 20 74 68 61 74 20 |as sent |to that |
|00001320| 70 6f 72 74 2c 0d 21 20 | 50 72 65 70 61 72 65 20 |port,.! |Prepare |
|00001330| 74 6f 20 72 65 63 65 69 | 76 65 20 61 6c 6c 20 65 |to recei|ve all e|
|00001340| 72 72 6f 72 20 72 65 73 | 75 6c 74 20 63 6f 64 65 |rror res|ult code|
|00001350| 73 0d 21 0d 20 20 4a 73 | 72 20 36 30 0d 21 0d 21 |s.!.  Js|r 60.!.!|
|00001360| 20 50 72 65 70 61 72 65 | 20 74 6f 20 63 6f 6e 6e | Prepare| to conn|
|00001370| 65 63 74 0d 21 0d 20 20 | 4a 73 72 20 39 30 0d 20 |ect.!.  |Jsr 90. |
|00001380| 20 4d 61 74 63 68 53 74 | 72 20 31 20 35 31 20 22 | MatchSt|r 1 51 "|
|00001390| 5c 72 5c 6e 2b 46 43 4f | 4e 22 0d 20 20 48 73 52 |\r\n+FCO|N".  HsR|
|000013a0| 65 73 65 74 20 2a 0d 20 | 20 57 72 69 74 65 20 22 |eset *. | Write "|
|000013b0| 41 54 44 5e 31 5c 72 22 | 0d 20 20 4d 61 74 63 68 |ATD^1\r"|.  Match|
|000013c0| 52 65 61 64 20 37 30 30 | 0d 20 20 57 72 69 74 65 |Read 700|.  Write|
|000013d0| 20 22 5c 72 22 0d 20 20 | 45 78 69 74 20 2d 36 30 | "\r".  |Exit -60|
|000013e0| 31 39 0d 40 4c 41 42 45 | 4c 20 35 31 0d 20 20 51 |19.@LABE|L 51.  Q|
|000013f0| 75 65 75 65 49 6e 70 75 | 74 20 22 5c 72 5c 6e 2b |ueueInpu|t "\r\n+|
|00001400| 46 43 4f 4e 22 0d 20 20 | 41 74 74 61 63 68 20 22 |FCON".  |Attach "|
|00001410| 46 61 78 22 20 28 44 54 | 52 2c 52 45 53 45 54 2c |Fax" (DT|R,RESET,|
|00001420| 45 53 43 41 50 45 2c 49 | 44 4c 45 4c 69 6d 69 74 |ESCAPE,I|DLELimit|
|00001430| 3d 33 30 29 0d 21 0d 21 | 20 54 68 69 73 20 73 65 |=30).!.!| This se|
|00001440| 63 74 69 6f 6e 20 65 6d | 69 74 73 20 61 6c 6c 20 |ction em|its all |
|00001450| 6d 6f 64 65 6d 20 63 6f | 6d 6d 61 6e 64 73 20 73 |modem co|mmands s|
|00001460| 65 6e 74 20 62 79 20 74 | 68 65 20 63 6c 69 65 6e |ent by t|he clien|
|00001470| 74 20 61 70 70 6c 69 63 | 61 74 69 6f 6e 0d 21 20 |t applic|ation.! |
|00001480| 46 6f 72 20 65 61 63 68 | 20 73 65 74 20 6f 66 20 |For each| set of |
|00001490| 63 6f 6d 6d 61 6e 64 73 | 20 74 68 65 20 22 4f 4b |commands| the "OK|
|000014a0| 22 20 61 6e 73 77 65 72 | 20 69 73 20 61 77 61 69 |" answer| is awai|
|000014b0| 74 65 64 0d 21 0d 40 4c | 61 62 65 6c 20 36 30 0d |ted.!.@L|abel 60.|
|000014c0| 20 20 45 6d 69 74 53 74 | 61 72 74 0d 40 4c 61 62 |  EmitSt|art.@Lab|
|000014d0| 65 6c 20 36 31 0d 20 20 | 45 6d 69 74 43 6f 6d 6d |el 61.  |EmitComm|
|000014e0| 61 6e 64 20 36 32 0d 20 | 20 4a 73 72 20 31 30 30 |and 62. | Jsr 100|
|000014f0| 0d 20 20 4a 75 6d 70 20 | 36 31 0d 40 4c 61 62 65 |.  Jump |61.@Labe|
|00001500| 6c 20 36 32 0d 20 20 72 | 65 74 75 72 6e 0d 21 0d |l 62.  r|eturn.!.|
|00001510| 21 20 54 68 69 73 20 73 | 65 63 74 69 6f 6e 20 69 |! This s|ection i|
|00001520| 6e 69 74 69 61 74 65 73 | 20 74 68 65 20 6d 6f 64 |nitiates| the mod|
|00001530| 65 6d 20 62 65 66 6f 72 | 65 20 41 4e 53 57 45 52 |em befor|e ANSWER|
|00001540| 20 61 6e 64 20 4f 52 49 | 47 49 4e 41 54 45 73 3a | and ORI|GINATEs:|
|00001550| 0d 21 20 73 70 65 61 6b | 65 72 20 63 6f 6e 74 72 |.! speak|er contr|
|00001560| 6f 6c 20 2b 0d 21 20 72 | 65 73 65 74 20 6f 6e 20 |ol +.! r|eset on |
|00001570| 44 74 72 20 64 72 6f 70 | 20 2b 20 44 43 44 20 76 |Dtr drop| + DCD v|
|00001580| 61 6c 69 64 0d 21 20 56 | 65 72 62 61 6c 20 72 65 |alid.! V|erbal re|
|00001590| 73 70 6f 6e 73 65 73 20 | 6d 6f 64 65 2c 20 6e 6f |sponses |mode, no|
|000015a0| 20 65 63 68 6f 20 0d 21 | 20 53 65 74 20 26 53 31 | echo .!| Set &S1|
|000015b0| 20 28 44 53 52 29 20 69 | 6e 20 63 61 73 65 20 74 | (DSR) i|n case t|
|000015c0| 68 65 20 63 61 62 6c 65 | 20 63 6f 6e 6e 65 63 74 |he cable| connect|
|000015d0| 73 20 74 68 65 20 44 53 | 52 20 73 69 67 6e 61 6c |s the DS|R signal|
|000015e0| 20 77 69 74 68 20 74 68 | 65 20 43 54 53 20 70 69 | with th|e CTS pi|
|000015f0| 6e 0d 21 0d 40 4c 61 62 | 65 6c 20 37 30 0d 20 20 |n.!.@Lab|el 70.  |
|00001600| 57 72 69 74 65 20 22 41 | 54 4d 5e 32 4c 5e 33 26 |Write "A|TM^2L^3&|
|00001610| 44 32 26 43 31 56 31 45 | 30 5c 72 22 0d 20 20 4a |D2&C1V1E|0\r".  J|
|00001620| 73 72 20 31 30 30 0d 20 | 20 72 65 74 75 72 6e 20 |sr 100. | return |
|00001630| 0d 21 0d 21 20 54 68 69 | 73 20 73 65 63 74 69 6f |.!.! Thi|s sectio|
|00001640| 6e 20 73 79 6e 63 72 6f | 6e 69 7a 65 20 74 68 65 |n syncro|nize the|
|00001650| 20 6d 6f 64 65 6d 20 61 | 66 74 65 72 20 74 68 65 | modem a|fter the|
|00001660| 20 73 65 72 69 61 6c 20 | 70 6f 72 74 20 73 70 65 | serial |port spe|
|00001670| 65 64 20 73 77 69 74 63 | 68 69 6e 67 0d 21 0d 40 |ed switc|hing.!.@|
|00001680| 4c 61 62 65 6c 20 38 30 | 0d 20 20 43 68 72 44 65 |Label 80|.  ChrDe|
|00001690| 6c 61 79 20 31 0d 20 20 | 57 72 69 74 65 20 22 41 |lay 1.  |Write "A|
|000016a0| 54 5c 72 22 0d 20 20 43 | 68 72 44 65 6c 61 79 20 |T\r".  C|hrDelay |
|000016b0| 30 0d 20 20 4a 73 72 20 | 31 30 30 0d 20 20 72 65 |0.  Jsr |100.  re|
|000016c0| 74 75 72 6e 0d 21 0d 21 | 20 50 72 65 70 61 72 65 |turn.!.!| Prepare|
|000016d0| 20 74 6f 20 72 65 63 65 | 69 76 65 20 65 72 72 6f | to rece|ive erro|
|000016e0| 72 20 72 65 73 75 6c 74 | 20 63 6f 64 65 73 0d 21 |r result| codes.!|
|000016f0| 0d 40 4c 61 62 65 6c 20 | 39 30 0d 20 20 4d 61 74 |.@Label |90.  Mat|
|00001700| 63 68 43 6c 72 0d 20 20 | 4d 61 74 63 68 53 74 72 |chClr.  |MatchStr|
|00001710| 20 32 20 39 31 20 22 4e | 4f 20 44 49 41 4c 54 4f | 2 91 "N|O DIALTO|
|00001720| 4e 45 5c 72 5c 6e 22 0d | 20 20 4d 61 74 63 68 53 |NE\r\n".|  MatchS|
|00001730| 74 72 20 33 20 39 32 20 | 22 42 55 53 59 5c 72 5c |tr 3 92 |"BUSY\r\|
|00001740| 6e 22 0d 20 20 4d 61 74 | 63 68 53 74 72 20 34 20 |n".  Mat|chStr 4 |
|00001750| 39 33 20 22 4e 4f 20 43 | 41 52 52 49 45 52 5c 72 |93 "NO C|ARRIER\r|
|00001760| 5c 6e 22 0d 20 20 4d 61 | 74 63 68 53 74 72 20 35 |\n".  Ma|tchStr 5|
|00001770| 20 39 34 20 22 4e 4f 20 | 41 4e 53 57 45 52 5c 72 | 94 "NO |ANSWER\r|
|00001780| 5c 6e 22 0d 20 20 72 65 | 74 75 72 6e 0d 40 4c 61 |\n".  re|turn.@La|
|00001790| 62 65 6c 20 39 31 0d 20 | 20 65 78 69 74 20 2d 36 |bel 91. | exit -6|
|000017a0| 30 32 30 0d 40 4c 61 62 | 65 6c 20 39 32 0d 20 20 |020.@Lab|el 92.  |
|000017b0| 65 78 69 74 20 2d 36 30 | 32 32 0d 40 4c 61 62 65 |exit -60|22.@Labe|
|000017c0| 6c 20 39 33 0d 20 20 65 | 78 69 74 20 2d 36 30 32 |l 93.  e|xit -602|
|000017d0| 31 0d 40 4c 61 62 65 6c | 20 39 34 0d 20 20 65 78 |1.@Label| 94.  ex|
|000017e0| 69 74 20 2d 36 30 32 33 | 0d 21 0d 21 20 50 72 6f |it -6023|.!.! Pro|
|000017f0| 63 65 73 73 69 6e 67 20 | 74 68 65 20 41 54 20 63 |cessing |the AT c|
|00001800| 6f 6d 6d 61 6e 64 3a 0d | 21 20 4f 4b 20 2d 3e 20 |ommand:.|! OK -> |
|00001810| 70 72 6f 63 65 65 64 0d | 21 20 45 52 52 4f 52 20 |proceed.|! ERROR |
|00001820| 6f 72 20 54 69 6d 65 4f | 75 74 20 2d 3e 65 78 69 |or TimeO|ut ->exi|
|00001830| 74 20 2d 36 30 31 39 0d | 21 20 49 74 20 63 61 6e |t -6019.|! It can|
|00001840| 20 62 65 20 63 61 6c 6c | 65 64 20 41 46 54 45 52 | be call|ed AFTER|
|00001850| 20 74 68 65 20 22 57 72 | 69 74 65 22 20 63 6f 6d | the "Wr|ite" com|
|00001860| 6d 61 6e 64 2c 20 73 69 | 6e 63 65 20 4c 69 6e 65 |mand, si|nce Line|
|00001870| 53 68 61 72 65 20 62 75 | 66 66 65 72 73 20 69 6e |Share bu|ffers in|
|00001880| 70 75 74 0d 21 0d 40 4c | 61 62 65 6c 20 31 30 30 |put.!.@L|abel 100|
|00001890| 0d 20 20 4d 61 74 63 68 | 43 6c 72 0d 20 20 4d 61 |.  Match|Clr.  Ma|
|000018a0| 74 63 68 53 74 72 20 31 | 20 31 30 32 20 22 5c 72 |tchStr 1| 102 "\r|
|000018b0| 5c 6e 4f 4b 5c 72 5c 6e | 22 0d 20 20 4d 61 74 63 |\nOK\r\n|".  Matc|
|000018c0| 68 53 74 72 20 32 20 31 | 30 31 20 22 5c 72 5c 6e |hStr 2 1|01 "\r\n|
|000018d0| 45 52 52 4f 52 5c 72 5c | 6e 22 0d 20 20 4d 61 74 |ERROR\r\|n".  Mat|
|000018e0| 63 68 52 65 61 64 20 32 | 30 0d 40 4c 61 62 65 6c |chRead 2|0.@Label|
|000018f0| 20 31 30 31 0d 20 20 45 | 78 69 74 20 2d 36 30 31 | 101.  E|xit -601|
|00001900| 39 0d 40 4c 61 62 65 6c | 20 31 30 32 0d 20 20 72 |9.@Label| 102.  r|
|00001910| 65 74 75 72 6e 0d 00 00 | 00 00 00 00 00 00 00 00 |eturn...|........|
|00001920| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001930| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001940| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001950| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001960| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001970| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001980| 00 00 01 00 00 00 01 18 | 00 00 00 18 00 00 00 46 |........|.......F|
|00001990| 11 4e 91 7a 72 50 01 24 | ba 7f cb bf 12 20 6e 00 |.N.zrP.$|..... n.|
|000019a0| 0c 58 ae 92 78 56 7f 7e | bf 50 01 25 4a 38 01 a0 |.X..xV.~|.P.%J8..|
|000019b0| 14 53 75 70 72 61 20 46 | 61 78 32 26 4d 75 6c 74 |.Supra F|ax2&Mult|
|000019c0| 69 44 61 74 61 46 02 00 | 00 00 50 61 72 74 53 49 |iDataF..|..PartSI|
|000019d0| 00 00 50 61 72 74 53 49 | 54 21 00 00 00 00 00 00 |..PartSI|T!......|
|000019e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000019f0| 00 00 a7 fd 3b 95 00 00 | 00 00 00 00 01 5e 72 01 |....;...|.....^r.|
|00001a00| a8 73 68 6a 73 01 1c 00 | 9f 13 4e 5e 4e 75 4e 56 |.shjs...|..N^NuNV|
|00001a10| 5b 5c 9b 01 3e 2e 7b 25 | 01 2d 6e 4f 5b 03 4a 47 |[\..>.{%|.-nO[.JG|
|00001a20| 6f 34 60 1c 57 5b 34 01 | 02 78 cc 52 7f 7e bf 50 |o4`.W[4.|.x.R.~.P|
|00001a30| 01 24 e2 12 4f ef 00 10 | e0 01 53 47 c5 01 6e dc |.$..O...|..SG..n.|
|00001a40| 7f 01 26 68 e2 51 01 08 | e8 a3 bf b7 5b 73 c4 79 |..&h.Q..|....[s.y|
|00001a50| 3c 2a 10 19 70 24 2f 00 | 4e ad 01 ba 28 40 20 0c |<*..p$/.|N...(@ .|
|00001a60| 58 8f 67 3a 70 01 22 0c | 66 16 2f 00 72 22 2f 01 |X.g:p.".|f./.r"/.|
|00001a70| 4e ad 01 ba 58 8f 22 00 | 20 1f 4a 81 66 02 70 00 |N...X.".| .J.f.p.|
|00001a80| 00 00 00 04 00 06 00 04 | 00 00 00 0c 00 09 08 52 |........|.......R|
|00001a90| 44 4d 6f 6e 61 63 6f 7a | 00 00 01 00 00 00 01 18 |DMonacoz|........|
|00001aa0| 00 00 00 18 00 00 00 46 | 00 57 a5 b4 0d f6 00 00 |.......F|.W......|
|00001ab0| 00 1c 00 46 00 01 45 54 | 41 42 00 00 00 12 45 46 |...F..ET|AB....EF|
|00001ac0| 4e 54 00 00 00 1e 03 ec | ff ff 00 00 00 00 00 57 |NT......|.......W|
|00001ad0| a4 88 03 eb ff ff 00 00 | 00 08 00 57 a4 ac 00 00 |........|...W....|
|00001ae0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001af0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+